input sunfont1base  % Read in the special routines for this problem

proofing:=1;		% this will make a "GF" output file
			% so you can get hardcopy proofs and/or run "bits"
% pausing:=1;		% So that I can see where it goes wrong
% tracingequations:=1;	% To see if everything is properly defined


vardef char.Y =
	setwidth .7em;	% do this first; it sets the character width
	pos1(1.05thickwidth,10);
	pos2(.8thickwidth,0);
	pos3(1.05thickwidth,10);
	pos4(.8thickwidth,0);
	pos5(thickwidth,0);
	pos6(thickwidth,0);
	z1=(.222w+.5thickwidth,capheight);
	z2=(.5w-.1thickwidth,.8xheight-thickwidth);
	z3=(.778w-.5thickwidth,capheight);
	z4=(.5w+.1thickwidth,.8xheight-thickwidth);
	z5=(.5w,.8xheight-thickwidth);
	z6=(.5w,0);
	stroke(1,2,.9,0,.1);
	stroke(3,4,.9,.1,0);
	stroke(5,6,0,.0,0);
	labelpos(1,2,3,4,5,6);
enddef;

test.normal(char.Y);	% this will display my Y, with "normal" parameters
test.bold(char.Y);	% and this will display it with "bold" parameters
test.boldx(char.Y);	% and bold extended

test(char.Y);		% this shows all three Y's, but only half size

end